home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
axcool
/
clsitem.cls
< prev
next >
Wrap
Text File
|
1998-10-26
|
4KB
|
147 lines
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "clsItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarCaption As String 'local copy
Private mvarStyle As Integer 'local copy
Private mvarTag As String 'local copy
Private mvarToolTipText As String 'local copy
Private mvarBitmap As Object 'local copy
Private mvarVisible As Integer 'local copy
Private mvarEnabled As Integer 'local copy
'local variable(s) to hold property value(s)
Private mvarDropDown As Integer 'local copy
Private mvarLeft As Integer
Public Property Let DropDown(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.DropDown = 5
mvarDropDown = vData
End Property
Public Property Get DropDown() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.DropDown
DropDown = mvarDropDown
End Property
Public Property Let Enabled(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Enabled = 5
mvarEnabled = vData
End Property
Public Property Get Enabled() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Enabled
Enabled = mvarEnabled
End Property
Public Property Let Visible(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Visible = 5
mvarVisible = vData
End Property
Public Property Get Visible() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Visible
Visible = mvarVisible
End Property
Public Property Set Bitmap(ByVal vData As Object)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.Bitmap = Form1
Set mvarBitmap = vData
End Property
Public Property Get Bitmap() As Object
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Bitmap
Set Bitmap = mvarBitmap
End Property
Public Property Let ToolTipText(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ToolTipText = 5
mvarToolTipText = vData
End Property
Public Property Get ToolTipText() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ToolTipText
ToolTipText = mvarToolTipText
End Property
Public Property Let Tag(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Tag = 5
mvarTag = vData
End Property
Public Property Get Tag() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Tag
Tag = mvarTag
End Property
Public Property Let Style(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Style = 5
mvarStyle = vData
End Property
Public Property Get Style() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Style
Style = mvarStyle
End Property
Public Property Let Caption(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Caption = 5
mvarCaption = vData
End Property
Public Property Get Caption() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Caption
Caption = mvarCaption
End Property
Public Property Let Left(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Style = 5
mvarLeft = vData
End Property
Public Property Get Left() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Style
Left = mvarLeft
End Property